100 PRINT"[147]":CLR:RESTORE
110 DIM L$(78,78),W$(78)
140 GOSUB 61030
150 H$="[147]        THE WORD SEARCH CREATOR         "
155 GOTO2000
160 PRINTH$:PRINT
170 PRINT"ENTER NAME OF WORD SEARCH PUZZLE":PRINT"-->";
180 LN=25:GOSUB60000:T$=B$:IFB$=""THENPRINT"[145][145]";:GOTO170
190 PRINTH$:PRINT:PRINT"[156]TITLE[152]:    "T$:PRINT
200 PRINT"ENTER THE # OF COLUMNS PLEASE [152](10[152]-38[152])":PRINT"-->   [157][157][157]";
210 LN=3:GOSUB60000:C=VAL(B$): IFC<10ORC>38THENPRINT"[145][145]";:GOTO200
220 PRINTH$:PRINT:PRINT"[156]TITLE[152]:    "T$:PRINT:PRINT"COLUMNS[152]: "C:PRINT
222 IFA=2THEN2240
230 PRINT"[129]ENTER THE # OF ROWS [152](10[152]-40[152])":PRINT"-->   [157][157][157]";
240 LN=3:GOSUB60000:R=VAL(B$):IFR<10ORR>40THENPRINT"[145][145]";:GOTO 230
250 PRINTH$:PRINT:PRINT"[156]TITLE    [146][152]:"T$:PRINT:PRINT"COLUMNS [146][152]:"C:PRINT
260 PRINT"[129]ROWS    [146][152]:"R:PRINT
270 PRINT"[158]ENTER THE # OF WORDS IN PUZZLE ";
280 WW=C+R:PRINT"[152](1[152]-"WW"[157][152])":PRINT"-->   [157][157][157]";:LN=4:GOSUB60000:W=VAL(B$)
285 IFW<1ORW>WW THEN PRINT"[145][145]";:GOTO270
290 PRINTH$:PRINT:PRINT"[156]TITLE    [146][152]:"T$:PRINT:PRINT"COLUMNS [146][152]:"C:PRINT
300 PRINT"[129]ROWS    [146][152]:"R:PRINT:PRINT"[158]WORDS   [146][152]:"W:PRINT
305 PRINT" (PRESS ANY WHEN READY TO CONTINUE) "
310 WAIT198,1:POKE198,0
320 PRINTH$:PRINT
330 L=C:IFR<CTHENL=R
340 PRINT"[159] ENTER THE WORDS, BE SURE THAT THEY ARE"
342 PRINT"      LESS THAN"L"LETTERS IN LENGTH"
344 PRINT:PRINT
360 FORT=1TOW
370 PRINT"[156]WORD [152]#[155]"T"[152]:";
380 LN=L:GOSUB60000:W$(T)=B$:PRINT
390 IFLEN(W$(T))>LTHENPRINT"TO LONG":GOTO370
400 NEXTT
410 PRINT" (PRESS ANY WHEN READY TO CONTINUE) "
420 WAIT 198,1:POKE198,0
430 PRINTH$:PRINT:PRINT"[150]  PLEASE WAIT[152]: WORKING ON THE PUZZLE ":PRINT
440 FORT=1TOR:FORTT=1TOC:L$(T,TT)="[209]":NEXTTT,T
450 FORT=1TOW
460 X=INT(RND(1)*R)+1
470 Y=INT(RND(1)*C)+1
480 V=INT(RND(1)*3)-1
490 H=INT(RND(1)*3)-1
500 IFV=0ANDH=0THEN480
510 XX=X:YY=Y
520 FORTT=1TOLEN(W$(T))
530 D$=MID$(W$(T),TT,1):IFD$=" "THEN600
540 C$=L$(X,Y):IFC$<>D$THEN560
550 GOTO570
560 IFC$<>"[209]"THEN460
570 X=X+V:Y=Y+H
580 IFX>RORX<1THEN460
590 IFY>CORY<1THEN460
600 NEXTTT:X=XX:Y=YY
610 FORTT=1TOLEN(W$(T))
620 D$=MID$(W$(T),TT,1):IFD$=" "THEN650
630 L$(X,Y)=D$
640 X=X+V:Y=Y+H
650 NEXTTT:NEXTT
659 PRINT" ADVANCE THE PRINTER TO THE NEXT PAGE &
660 [153]" PRESS ANY KEY WHEN READY TO CONTINUE"
667 [153]
670 [146]198,1:[151]198,0
680 [153]H$
700 [153]H$:[153]:[153]:[153][166]16)"PRINTING"
710 [153]:[153][166]15)"ANSWER KEY"
720 A$[178]"Y":[141]1000
730 [153]H$:[153]:[153]:[153]"REPLACING DOTS WITH LETTERS, PLEASE WAIT"
740 [129]T[178]1[164]R:[129]TT[178]1[164]C
750 [139]L$(T,TT)[179][177]"(null)"[167]770
760 L$(T,TT)[178][199]([181]([187](1)[172]26)[170]65)
770 [130]TT,T
780 [153]H$:[153]:[153]"  ADAVANCE PRINTER TO THE NEXT PAGE &"
785 [153]" PRESS ANY KEY WHEN READY TO CONTINUE"
790 [161]A$:[139]A$[178]""[167]790
800 [153]H$:[153]:[153]:[153][166]16)"PRINTING"
810 [153]:[153][166]17)"PUZZLE"
820 A$[178]"N":[141]1000
830 [153]H$:[153]:[153]"WOULD YOU LIKE ANOTHER COPY (Y/N)."
840 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]840
850 [139]A$[178]"Y"[167]780
860 [153]H$:[153]:[153]"DO YOU WANT TO MAKE ANOTHER PUZZLE(Y/N)."
870 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]870
880 [139]A$[178]"Y"[167]2000
890 [153]H$:[153]:[153]" I HOPE YOU HAD FUN MAKING YOUR PUZZLE."
900 [153]"            PLEASE COME BACK"
910 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
915 [139]ER[179][177]63 [167] [128]
920 [147]"HELLO CONNECT",8
1000 [159]15,4,15:[160]15:[139]ST[179][177]0[167] 63500
1003 [159]4,4
1005 S$[178]"":[129]T[178]1[164](21[171][195](T$)[173]2):S$[178]S$[170]" ":[130]
1010 [152]4,[199](14)S$T$
1020 [152]4:[152]4
1030 [139]A$[179][177]"Y"[167]1050
1040 [152]4,[199](14)"                ANSWER KEY"
1050 [152]4:[152]4,[199](15)
1060 S$[178]"":[129]T[178]1[164](41[171](C)):S$[178]S$[170]" ":[130]
1070 [129]T[178]1[164]R
1080 [152]4,S$;
1090 [129]TT[178]1[164]C
1100 [152]4,L$(T,TT)" ";
1110 [130]TT:[152]4:[130]T
1120 [152]4:[152]4:[152]4
1130 [129]T[178]1[164]W
1140 [152]4,[199](16)"10"W$(T);:T[178]T[170]1:[139]T[177]W[167]1170
1150 [152]4,[199](16)"30"W$(T);:T[178]T[170]1:[139]T[177]W[167]1170
1160 [152]4,[199](16)"55"W$(T)
1170 [130]T:[152]4
1180 [160]4
1190 [142]
2000 [151]53280,.:[151]53281,.:[153]"LOAD"
2050 [141] 60770
2100 [161]A$:[139]A$[178]""[167]2100
2110 [139] A$[179]"0" [176] A$[177]"7" [167] 2100
2115 [139]A$[178]"0" [167] 63000
2116 A[178][197](A$)
2120 [139]A[178]1 [167]2150
2130 [153]"LOAD"
2135 [153]"  PLEASE WAIT WHILE DATA IS BEING READ"
2140 C[178]30:R[178]30:W[178]20
2150 [145]A[137]160,2160,2170,2180,2190,2200,2210
2160 T$[178]"GIRL'S NAMES":[137]2220
2170 T$[178]"BOY'S NAMES":[137]2220
2180 T$[178]"BASIC COMMANDS":[137]2220
2190 T$[178]"BASEBALL TEAMS":[137]2220
2200 T$[178]"U.S. PRESIDENTS":[137]2220
2210 T$[178]"U.S. CAPITALS":[137]2220
2220 :
2221 [139]A[178]2[167]2240
2230 [129]T[178]1[164](20[172](A[171]2)):[135]X$:[130]
2240 [129]T[178]1[164]20:[135]W$(T):[130]T
2250 [137]440
3000 [131] SARAH,TONIA,MELISSA,TAMMY,AMY,DEBRA,KRISTI,SUSAN,KATHERINE
3010 [131] CORA,MELANIE,SAMANTHA,STEPHANIE,DEENA,TRACEY,STACEY,ANN
3100 [131] BECKY,JANA,LAURA,CHRIS,MARVIN,MAURICE,ANTHONY,MATTHEW
3110 [131] CHARLES,GEORGE,ROBERT,ALLAN,CARL,BRAIN,DENNIS,MIKE,BRUCE
3115 [131] JOHN,THOMAS,DOUG,STU,TROY,KEVIN
3200 [131] PRINT,LIST,LET,READ,INPUT,GET,GOTO,GOSUB,RETURN,DIM
3210 [131] SAVE,LOAD,NEW,END,STOP,POKE,PEEK,CONT,SPC,TAB
3300 [131] YANKEES,RED SOX,WHITE SOX,METS,PIRATES,ASTROS,RANGERS
3310 [131] CUBS,EXPOS,REDS,CARDINALS,PADRES,ROYALS,BLUE JAYS,INDIANS
3320 [131]ATHLETICS,GIANTS,ORIOLES,DODGERS,MARINERS
3400 [131] WASHINGTON,ADAMS,LINCOLN,JOHNSON,JEFFERSON,MONROE,JACKSON,REAGAN
3410 [131] CARTER,FORD,NIXON,KENNEDY,EISENHOWER,TRUMAN,ROOSEVELT
3420 [131] HOOVER,WILSON,HARDING,GARFIELD,TAFT
3500 [131] AUSTIN,SANTA FE,LITTLE ROCK,CARSON CITY,BATON ROUGE,JACKSON
3510 [131] ATLANTA,OLYMPIA,PROVIDENCE,DOVER,INDIANAPOLIS,TOPEKA,RICHMOND
3520 [131] PHOENIX,TALLAHASSE,SACRAMENTO,PIERRE,FRANKFORT,AUGUSTA,ALBANY
60000 B$[178]""
60010 LL[178]1:[153]"TO";
60015 [161]A$:[139]A$[178]""[167]60015
60020 [139]A$[178][199](20)[175]LL[178]1 [167] 60015
60025 [139]A$[178][199](20)[167][153]"CMDCMD  CMDCMDTO";:LL[178]LL[171]1:B$[178][200](B$,LL[171]1):[137]60015
60030 [139]A$[178][199](13) [167][153]"CMD CMD":[142]
60035 [139]LL[177]LN [167] 60015
60040 [139]A$[178][177]"ATN"[175]A$[179][178]"(null)" [167] 60050
60045 [139]A$[179]" "[176]A$[177]"Z"[167] 60015
60050 LL[178]LL[170]1:[153]"CMD";A$;:[151]212,.:[153]"TO";:B$[178]B$[170]A$
60055 [137] 60015
60770 [153]"WAIT LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
60780 [153]" }                                   }"
60790 [153]" }       CONTW O R D  S E A R C H        LIST}"
60800 [153]" }       PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        LIST}"
60810 [153]" }                                   }"
60820 [153]" }       1.  CREATE YOUR OWN         LIST}"
60830 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60840 [153]" }       FOR2.  GIRLS NAMES             LIST}"
60850 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60860 [153]" }    CLOSE  SYS3.  BOYS NAMES              LIST}"
60870 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60880 [153]" }       4.  BASIC COMMANDS          LIST}"
60890 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60900 [153]" }       CONT5.  BASEBALL TEAMS          LIST}"
60910 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60920 [153]" }       CLR6.  U.S. PRESIDENTS         LIST}"
60930 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60940 [153]" }       VERIFY7.  U.S. CAPITALS           LIST}"
60950 [153]" }      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(        }"
60960 [153]" /```````````````````````````````````EXP"
60970 [153]" CONTOR```````````````````````````````````^"
60980 [153]" }                                   }"
60990 [153]" }  ENTER SELECTION (1-7,0=ABORT):   CONT}"
61000 [153]" }                                   }"
61010 [153]" /cccccccccccccccccccccccccccccccccccEXP";
61020 [153]"";
61025 [142]
61030 [153]"LOAD":[151]53281,14:[151]53280,14
61040 [151]53283,1:[151]53284,15:[151]53265,[194](53265)[176]64
61050 [153]"                                       "
61060 [153]"  STOP          L O A D S T A R            "
61070 [153]"                                       "
61080 [153]"         IS PROUD TO PRESENT...        "
61090 [153]"                                       "
61100 [153]:[153]
61110 [153]"                                "
61120 [153]"          WCONT OCONT RCONT DCONT  SCONT ECONT ACONT RCONT CCONT H  "
61130 [153]"            OPEN                    "
61150 [153]"             C R E A T O R      "
61160 [153]"                                "
61170 [153]:[153]
61180 [153]"      SYSCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
61190 [153]"      SYSCLOSECLOSESYSCLOSECLOSEPEEK(null)CLOSELENLEFT$(null)RIGHT$(null)CLOSEPEEK(null)RIGHT$(null)(null)(null)(null)CLOSEATN(null)STR$CLOSECLOSECLOSECLOSE"
61200 [153]"      CLOSECLOSECLOSECLOSECLOSECLOSESYSCLOSE(null)ATN(null)(null)RIGHT$(null)CLOSEATN(null)(null)ATN(null)VAL(null)CLOSECLOSESYSCLOSECLOSECLOSECLOSECLOSE"
61210 [153]"      CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
61215 [153]"                                  "
61220 [153]"      SYS   *   COPYRIGHT 1987   *   "
61230 [153]"                                  "
61240 [153]"              PRESS (SPACE)       "
61245 [153]"                                  "
61270 [153]"";
61271 [161]A$:[139]A$[179][177]" "[167] 61271
61275 [153]"LOAD":[151]53265,27:[142]
63000 [153]""
63010 [153]"LIST                        "
63015 [153]"  QUIT : ARE YOU SURE?  "
63020 [153]"  ------                "
63022 [153]"         Y)ES OR N)O    "
63024 [153]"                        "
63030 [161]A$:[139]A$[178]""[167] 63030
63031 [139]A$[178]"N"[176]A$[178]"(null)"[167] 2050
63035 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 63050
63040 [137] 63030
63050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
63055 [139]ER[179][177]63 [167] [153]"LOAD":[128]
63060 [147]"HELLO CONNECT",8
63500 [153]""
63510 [153]"LIST                        "
63515 [153]"  PRINTER NOT PRESENT!  "
63520 [153]"   DO YOU WISH TO TRY   "
63522 [153]"   AGAIN? Y)ES OR N)O   "
63524 [153]"                        "
63530 [161]R$:[139]R$[178]""[167] 63530
63531 [139]R$[178]"Y"[176]R$[178]"(null)" [167] 63600
63532 [139]R$[178]"N"[176]R$[178]"(null)" [167] 63000
63540 [137] 63530
63600 [153]""
63610 [153]"                        "
63615 [153]"                        "
63620 [153]"                        "
63622 [153]"                        "
63624 [153]"                        ":[137] 1000